﻿Imports System.ComponentModel

Public Class DozenToevoegForm

#Region "Public property's"

#End Region

#Region "Constructors"

    ''' <summary>
    ''' Constructor
    ''' </summary>
    Public Sub New()
        InitializeComponent()
    End Sub

#End Region

#Region "Event handling"

    Protected Overrides Sub OnKeyUp(ByVal e As KeyEventArgs)
        MyBase.OnKeyUp(e)
        Select Case e.KeyCode
            Case Keys.F2
                VoegDoosToe()
        End Select
    End Sub

    Private Sub btnToevoegen_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnToevoegen.Click
        VoegDoosToe()
    End Sub

#End Region

#Region "Helperfuncties"

    Private Sub VoegDoosToe()
        If (Not Me.ValidateChildren()) Then
            'lblInfo.Text = "De gegevens zijn niet goed ingevuld. Verbeter de gegevens en probeer opnieuw"
            Return
        End If
        Try
            Cursor = Cursors.WaitCursor

            SamengesteldeArtikelsDal.AddDoos(DozenToevoegControl1.BarcodeDoos, DozenToevoegControl1.BarcodeArtikel, DozenToevoegControl1.AantalArtikelsPerDoos)

            Me.DozenToevoegControl1.Clear("De doos werd met succes toegevoegd")
        Catch ex As Exception
            'lblInfo.Text = ex.Message
            MessageBox.Show(ex.Message, "Fout", MessageBoxButtons.OK, MessageBoxIcon.Error)
            log.WriteError("DozenToevoegForm.VoegDoosToe", ex)
        Finally
            Cursor = Cursors.Default
        End Try
    End Sub

#End Region

End Class